home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / custcopy.prg < prev    next >
Encoding:
Text File  |  1979-12-31  |  269 b   |  11 lines
  1. ** CUSTCOPY.PRG - outputs data to text file using COPY TO..DELIMITED
  2. PARA datafile,ndxfile,textfile,fldsepar
  3. if len(trim(ndxfile))=0
  4.    use &datafile.
  5. else
  6.    use &datafile. index &ndxfile.
  7. endif
  8. copy to &textfile. delimited with &fldsepar.
  9. close data
  10. return
  11.